<%@LANGUAGE="VBSCRIPT"%> <% Dim NOTICIAS__MMColParam NOTICIAS__MMColParam = "1" If (Request.QueryString("cm") <> "") Then NOTICIAS__MMColParam = Request.QueryString("cm") End If %> <% Dim NOTICIAS Dim NOTICIAS_numRows Set NOTICIAS = Server.CreateObject("ADODB.Recordset") NOTICIAS.ActiveConnection = MM_con_sqlserver_STRING NOTICIAS.Source = "SELECT cod_materia, tit_materia, img_materia, credito_foto, data_sistema, galeria, texto_materia FROM dbo.fgerj_materias WHERE cod_materia = " + Replace(NOTICIAS__MMColParam, "'", "''") + "" NOTICIAS.CursorType = 0 NOTICIAS.CursorLocation = 2 NOTICIAS.LockType = 1 NOTICIAS.Open() NOTICIAS_numRows = 0 %> FGERJ - Federação de Golfe do Estado do Rio de Janeiro




<% IF NOTICIAS("img_materia") <> "" THEN %>
" hspace="0" vspace="0" border="1">
<%if not noticias("credito_foto") = "" or noticias("credito_foto") = NULL then%> <%=NOTICIAS("CREDITO_FOTO")%> <%end if%>
<% ELSE END IF %>

<%=(NOTICIAS.Fields.Item("tit_materia").Value)%>
<%=(NOTICIAS.Fields.Item("data_sistema").Value)%>

<%=REPLACE((NOTICIAS.Fields.Item("TEXTO_MATERIA").Value),vbcrlf,"
")%>
<% 'If Not NOTICIAS("GALERIA") = "0" Then %>
<% 'end if %>



<% NOTICIAS.Close() %>